home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / dejagnu.lha / dejagnu-1.0.1 / tcl / compat / teststrtoul.c < prev    next >
C/C++ Source or Header  |  1992-11-06  |  1KB  |  40 lines
  1. /* 
  2.  * teststrtoul.c --
  3.  *
  4.  *    This file contains a simple program to detect broken versions
  5.  *    of strtoul, like those on AIX.  The broken versions return an
  6.  *    incorrect terminator pointer for the string "0".  This program
  7.  *    exits with a normal status if strtoul does the right thing, and
  8.  *    it exits with a non-zero status if strtoul is bogus.  Unlike
  9.  *    the other test programs, this one must actually be executed to
  10.  *    be sure that it works.
  11.  *
  12.  * Copyright 1991 Regents of the University of California
  13.  * Permission to use, copy, modify, and distribute this
  14.  * software and its documentation for any purpose and without
  15.  * fee is hereby granted, provided that this copyright
  16.  * notice appears in all copies.  The University of California
  17.  * makes no representations about the suitability of this
  18.  * software for any purpose.  It is provided "as is" without
  19.  * express or implied warranty.
  20.  */
  21.  
  22. #ifndef lint
  23. static char rcsid[] = "$Header: /user6/ouster/tcl/compat/RCS/teststrtoul.c,v 1.2 92/01/07 10:02:56 ouster Exp $ SPRITE (Berkeley)";
  24. #endif /* not lint */
  25.  
  26. extern int strtoul();
  27.  
  28. int main()
  29. {
  30.     char *string = "0";
  31.     char *term;
  32.     int value;
  33.  
  34.     value = strtoul(string, &term, 0);
  35.     if ((value != 0) || (term != (string+1))) {
  36.     exit(1);
  37.     }
  38.     exit(0);
  39. }
  40.